0 IF A=0 THEN A=1:LOAD"SOUND.S",8,1
1 PRINT"[147]      ** FARBSTERN ** BY PHUTURE":D=10:POKE55,255:POKE56,129:SYS33322
2 GET A$:IF A$="" THEN 2
3 PRINT"[147]"
4 PRINT""
5 D=D-2:POKE53280,D:POKE53281,D
6 IF D=0  THEN D=10:GOTO 2
10 FOR I=1TO19
20 FOR J=1TO40
30 IF I<=10 THEN Y=10-I
40 IF I>10 THEN Y=I-10
50 IF J<=20 THEN X=20-J
60 IF J>20 THEN X=J-20
70 C=(X*Y)/D
75 POKE 646,C
80 PRINT" [146]";
90 NEXT:NEXT
101 GOTO 4